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(1) 1 SCAN_VEC t ST = scan fixup vector List 
(1) 18 PROCESS_VECTOR = vector type-dependent processing 
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~TITLE LINKVEC = Link loadable EXEC t t 
IDENT yee tat E © vectors 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION B COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 
; FACILITY: VMS Executive, system initialization services. 
ABSTRACT: 
This module contains the code to connect various pieces of the 
loadable EXEC up to their system vectors. This code is used 
at system boot time by the module INIT, but may be used Later 
in the life of the system as well. 
ENVIRONMENT: 
Kernel Mode 
AUTHOR: 
Steven T. Jeffreys 
CREATION DATE: 
27 November, 1982 
MODIFIED BY: 
V03-001 JWHO205 Jeffrey W. Horn 24-Mar-1983 
Add two vector type codes, SLVSK_SDATA and SLVSK_SJUMP. 
Also fix bug in ADATA vector process ing, code was not 
2 


account ing or bytes skiped in SYS.EXE because of .ALIGN 
directives. 
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0000 


ae 


9 ; Declarations: 
SDYNDEF 


6 
6 
64 

65 SSLVDEF 
66 SSSDEF 


"$$Eb=198e 88:85:38 USYSYSR che fnevee-maRs 


; Define data structure id codes 


roe, 


; Define system loadable vector offsets 


; define status codes 
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FUNCTIONAL DESCRIPTION: 
Given a List of get reretative offsets to loadable routines/data, 
and a parallel List of pbb vectors, ensure ig both Lists 
look reasonable, then relocate the info and plug it into the 
appropriate system vector. 
CALLING SEQUENCE: 
JSB/BSB EXESLINK_VEC 
INPUTS: 
Re = pointer into List of self-relative offsets into loaded code 
RS = address at which calculated address of loaded routines/data 
structures should be written 
OUTPUTS: 
The contents of all registers, save RO, are preserved. 
SIDE EFFECTS: 
None. 
ROUTINE VALUE: 
RO = SS$_BADIMGHDR : bad data structure pointed to be R2, no load. 
ALL other status codes are returned by called at Seg | and are simply 
5 


passed back to the caller of EXESLINK_VEC. They are ted here for 
convenience sake, and also in the appropriate routine header. 


Pete Se Se Ge Ge Se Ge Be Se Ge Ge Se Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Be Ge Se Ge Ge Ge Se Ge Se Se Ge Se 
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RO = SS$_NORMAL : normal successful completion, code loaded. 
= S$S$_BADVEC : data structure has a bad vector, no load. 
0000 -PSECT ZS$INIT 3; This code must be part of INIT 
EXESLINK_VEC:: 
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; The List of self-relative offsets has a fixed header. 
3; Perform some sanity checks on that header. 


POPPIN 2 9 M$ DOO DODOOOOOOOO OOOO OOOO 09 COO O09 08 SINISE Or 
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50 0044 BF 3¢ MOVZWL #SS$_BADIMGHDR,.R ; Assume not the right kind of image 
Bi CMPW SLVSC_CODESIZE(R ).-  } Check redundant code size info 
08 A SLVSW-SIZE(R2) ; 
1F i BNEQ ; Branch if error 
62 BF 9 CMPB #DYNSC LOROCORE = ; Check the data structure type 
OA a Shy SB_TYPECR ) : 
1 12 3; Branch if error 


BNEQ 
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; pe two tte tnrou 


rst to verify that 


; to actually pl.g the 


BUSHR  #°MCR2,R3,R4> 


POPR #*M<R2,R3,R4> 
RSB 
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a 
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SLVST_LIST(R2) ,R2 
BSBB = SCAN_VEC_LIST 

RO 09S 

RG 

(SP) ,R2 
MOVAL SLV$f_LIST(R2).R2 
BSBB. SCAN_VEC_LIST 


LES Me otha ane 


e fixup vector information; the 
nformation is valid, the second 
mation into the system vectors. 


; Save R2..R4 

; Step past the header 
; Indicate test mode 

: Check the fixup info 
; Exit if error 

3; Indicate {ixug née 
; Restore R2 and R 

; Step past the header 
3 pee the gyeren vectors 
3; Restore R2..R4 

3; Return 
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-SBTTL SCAN_VEC_LIST = scan fixup vector List 
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FUNCTIONAL DESCRIPTION: 
Scan through : jist of self relative vectors, and eh Rage he 
ghece the validity of the List or load the information in the List 
nto a system vector. 

CALLING SEQUENCE: 
JSB/BSB SCAN_VEC_LIST 

INPUTS: 


Ré = pointer into List of self-relative offsets into loaded code 
g address at which calculated address of loaded routines/data 


structures should be written 
R4 = action indicator. implies sanity check, 1 implies load vectors. 


SIDE EFFECTS: 


None. 
ROUTINE VALUE: 
RO = SS$_NORMAL : normal successful completion, code loaded. 
= $S$_BADVEC : data structure has a bad vector, no load. 


SCAN_VEC_LIST: Scan fixup vector List 
USHL R1 


Pus R1 : Save 
MOVZWL tittes MAXVEC,R1 ; Set loop Limit 
1$: CVTBL (R2)+,R0 ; Pick up the type byte 
BLEQ 11$ 3; Leave if <= 0 
BSBB 5c) | eae ; Perform vector type-dependent work 
BLBC RO,15$ 3; Branch if error 
SOBGTR R1,1$ ; Branch if more to go 
MOVZWL #355 _BADVEC,RO > Assume bad vector 
BRB 13$ 3; Return with error status 
11$: MOVZWL #SS$_NORMAL ,RO 3; Set success status 
13$: POPR #*M<Ri> ; Restor R1 
RSB ; Return 
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FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
JSB/BSB PROCESS_VECTOR 


INPUTS: 

RO = vector type code 

Re = pointer into list of self-relative offsets into loaded code 

R35 = address of the system vector 

R4 = action indicator. 0 implies sanity check, 1 implies load vectors. 
OUTPUT: 


R2 and R3 are updated to point to the next entries 
in their respective lists. However, if an error is 
detected, the contents of R2 and R3 are unpredictable. 


SIDE EFFECTS: 


None. 
ROUTINE VALUE: 
RO = SS$_NORMAL : normal successful completion, code loaded. 
= $S$_BADVEC : data structure has a bad vector, no load. 
00009F 17 ABSOLUTE _JMP = “X9F17 ; Hex equivalent of ‘JMP aA'’ 
PROCESS _VECTOR: ; Vector type-dependent checks 


: CASE on the vector type code to the appropriate vector handler. 


ASSUME SLVSK_LDATA EQ SLVS$K_MINTYPE 
ASSUME SLVSKAJUMP EQ SLVSK~MINTYPE+1 
ASSUME SLVSK-UJUMP EQ SLVSKMINTYPE+¢ 
ASSUME SLVSKTSDATA EQ SLVSK~MINTYPE+ 
ASSUME SLVSKISJUMP EQ SLVSK-MINTYPE+4 


“S JUMP “MINTYP 
ASSUME SLVSKSJUMP EQ SLVSK"MAXTYPE 
CASEW RO,#SLVSK_MINTYPE ,#SLVSK_MAXTYPE 


PAN 9 ODA UNE WIN 2 9 OD NAMES WIN OOO NA UE WIP O OD NAME WI OOONAUS ft O0O0 
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; Branch displacement table 
00c' 1$ -WORD 100$-1$ : If SLVSK_LDATA 
14° WORD § $-1 3 if Het ates 
1A‘ WORD $-1 ; If SLVSK_UJUMP 
$e. -WORD 400$-1$ : If SLVSK_SDATA 
B' " $-1$ 3; If SLVSK_SJUMP 
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ves tid PROCESS_VECTOR = vector type-dependent p = $Fb=1 382 EL LEYS SRCILINKVEC MARS 1 — (1) ve 
C 45 ; Fall through if value out of ra 
3A : 49 BRB 6969698 t bronch te tennen fellure path | 
—E 26 ; 
2f t3 ; RO = SLVSK_LDATA 
4 9 ; The vector is for a longword of data, and has the form 
SE ; : ALIGN 
se ? ; LONG 0 
53 03) «C0 5 100$: ADDL #3,R ; Round up t l d bound 
33 03 tA % 36 Sti fs n3 und up to nex longword boundry 
D Oee 38 BRB 10600$ 3 continue with common code 
6 9 : 
066 60 ; RO = SLVSK_AJUMP 
bee 2] ; The vector is for an aligned jump, and has the form 
066 § : ALIGN 
Baee ee : JMP a#<32 bit address> 
066 26 : 
a. @ d0¢6 89 200$: ADDL #3,R3 ; Round up to next longword boundary 
53 03 CA 944 68 BICL #3,R3 : 
Boee $3 ; Fall through to common code 
006C 271 ; 
006C ie ; RO = SLVSK_UJUMP 
page te ; The vector is for an unligned jump, and has the form 
4: 76 ; JMP a#<32 bit address> 
6C 27 : 
83 9F17 BF BI te 4 3008:  ¢mPw GAOSOLUTE JAP. (RS)* ; First two bytes must be JMP a# 
Tee 4 BNEQ 696969$ 3; Branch if error 
O73 1 
50 83 OE 7 Be 10000$: MOVAL (R3)+,R0 ; get system vector address 
OF 11 07 ; BRB 200008 
7 5 $ 
oF § : RO = SLVSK_SDATA 
; The system vector is for a longword of data, and has the form 
7 5 : ALIGN 
oy sENTRY::.LONG 0 
, 36 : The load vector has the form: 
7 9% : .BYTE _SLVSK_SDATA 
7 95 ; - ADDRESS GutRy 
4 39 3 -LONG offset_to_data 
50 82 dO 007 38 400$:  MOVL (R2)s RO ; get address 
A 11 £8 i BRB 20000 : No special processing 
7D ; 
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The system vector is for 


«ALIG 
ENTRY: :JMP av<32 bit 
The load vector has the 
BYTE SLVS$K_SJUM 


“ADDRESS ENTRY 
«LONG offset_to_ 


(R2)+,RO 
CMPW = (RO) +. MABSOLUTE _JMP 
696969$ 


Be 09:25:88 


address> 
form: 

p 
routine 


AX/VMS Macro v04-00 
SYS.SRCILINKVEC.MAR;1 


a jump, and has the form 


; First two bytes must be JMP af 
; Branch if error 


Common code 
If R4 is 0 
At this point. 
RO = 
R2 = pointer to longword o 
R4 = action indicator. 
TSTL R4 
BNEQ 20001$ 
ADDL #4 RS 
BRB 20602$ 
ADDL3 R2,(R2)+, (RO) 
MOV iL #S5$_NORMAL ,RO 


for processing a longword of information 
the contents of the system vector are not modified. 


pointer to a ro vector 


oadable info 
impies CHECK, 1 implies LOAD 


CHECK mode? 
Branch if not 
porns to next item 
ejoin common code 
Relocate info and plug the vector 
Set success status 


+ Common failure path. 


MOVZWL #SS$_BADVEC,RO 
RSB 
END 


Set failure status 
Return with error 
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abet table Sets 7 ETS f S.SRCILINKVEC.MAR;1 . (1) 
ABSOLUTE_JMP = Fi 
DYNSC_LOADCODE = 
EXESLINK VEC RG 
PROCESS VECTOR ER 
CAN. VEC T DR 
V$6_TY z A 
SLV$K_AJUMP = 
S TA s 
SLVSK_MAXTYPE = 
SLVSK_MAXVEC = , 
SLVSK_MINTYPE = 000 
SLVSK-SDATA = 
LVSK_SJUMP = 
S UJ = 
SLVSL_CODESIZE = 
SLVST_LIST = 0000 4 
$12 = 00000008 
SS$_BADIMGHDR = 0000 bee 
_BADVE = 0000 $s 
SS$_NORMAL = 00000001 
tae wee meee mem ce on4+ 
! Psect synopsis ! 
tere ree nsec w eee ame + 
PSECT name Allocation PSECT No. Attributes 
. 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( -) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ZSINIT QOOOO09E ¢ 158.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
ber ew ese eee eee ene ene eee ne + 
! Performance indicators ! 
bee sr eee semen sc anes ee es 
Phase Page faults CPU Time Elapsed Time 


Command processing 
Pass 

Symbol table sort 
Pass 2 

Symbol table output 


Initialization 35 9:08: p 08:0 :0) 
n : if 0:18 
200: 0 :00: £ 


07 34 
re 
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Psect synopsis output :00: 
Cross-reference output :00: 
Assembler run totals 46 

The working set Limit was 1350 pages. 


31143 bytes (61 pages) of virtual memory were used to buffer the intermediate sede. 

There were 40 pages of symbol table space allocated to hold 582 non-local ng 15 local symbols. 
1 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
1 pages of virtual memory were used to define 10 macros. 
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! Macro Library statistics ; 


junaaseueseevehenn eee nee owe 


Macro library name Macros defined 
'$ SDUA SYS.OBJJLIB.MLB;1 

EET Sys. 08 STARLET .MLB:2 7 
Tore (all Libraries) 


654 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:LINKVEC/OBJ=OBJ$:LINKVEC MSRC$:LINKVEC/UPDATE=(ENHS:LINKVEC) +EXECMLS$/LIB 
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